home *** CD-ROM | disk | FTP | other *** search
- 0 rem << rr25-4 >>
- 10 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- 20 rem - sequential transmitter -
- 30 rem rupert report #25
- 40 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- 50 rem transmit a sequential file
- 60 rem to the rs-232 port
- 70 rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
- 80 print chr$(147)
- 90 open 2,2,0,chr$(8)+chr$(0)
- 100 print"enter the -filename- of the
- 110 [153]"sequential file to be sent"
- 120 [133] f$
- 130 [159] 8,8,8,f$[170]",seq,r"
- 140 [161]#8, c$ : [139] c$[178]"" [167] 140
- 150 ss[178]st
- 160 [152]2,c$;
- 170 [139] [198](c$)[179]32 [176] [198](c$)[177]127 [167] c$[178]"*"
- 180 [153] c$;
- 190 [139] ss[178]0 [167] 140 :[143] not eof
- 200 [152]2,[199](26) : [152]2 : [160] 2 : [160] 8
-